00100		TITLE LOOK
00200		INTERNAL LOOK,LOOKD
00210	;****  IF(LOOKD(NAME).EQ.-1)FILE 'NAME.DAT' WAS FOUND.  0=NOT FOUND
00220	;****  IF(LOOK(NAME).EQ.-1)FILE 'NAME' WAS FOUND.  0=NOT FOUND
00300	
00400		CH←13
00500	
00600	REGS:	BLOCK 20
00700	
00800	;LOOK(<FILE>)
00900	
01000	LOOKD:	0
01100		MOVSI 0,'DAT'
01200		JRST LOOK1
01210	LOOK:	0
01220		MOVEI	0,0
01230	LOOK1:	MOVEM	0,DIR+1
01240		MOVE	0,@(16)
01250		MOVEM 	0,FILNAM
01260		JSA 16, INTFIZ
01270		SETZM	DIR+2
01280		SETZM	DIR+3
01290		LOOKUP	CH,DIR
01300		TDZA	0,0
01310		MOVNI	0,1
01320		JRA 16,1(16)
03000	
03100	INTFIZ:	0	;INITS DSK FOR INPUT
03200		MOVEI REGS
03300		BLT REGS+3
03400		INIT CH,17
03500		SIXBIT/DSK/
03600		0
03650		HALT .-3
03700	;	ERROR <CAN'T INIT DSK!>
04100	
04300	INTF4:	MOVE 0,FILNAM#
04400		MOVEM 0,FN#
04500		MOVE 1,[POINT 7,FN]
04600	INTF3:	MOVE 2,[POINT 6,DIR]
04700		SETZM DIR
04800		MOVEI 3,5
04900	INTF1:	ILDB 0,1
05000		CAIN 0," "
05100		JRST INTF2
05200		SUBI 0,40
05300		IDPB 0,2
05400		SOJG 3,INTF1
05500	INTF2:	HRLZI REGS
05600		BLT 3
05700		JRA 16,0(16)
05710	
05800	DIR:	BLOCK 4
05900	
06000		END